home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MEMMON.DIR / 00028_UnloadFrame.ls < prev    next >
Encoding:
Text File  |  2003-04-21  |  312 b   |  13 lines
  1. on mouseUp
  2.   global gStartFrame, gEndFrame
  3.   freebytesAtStart = the freeBytes
  4.   GetValues()
  5.   total = GetStageCastSizes(gStartFrame, gEndFrame, 1)
  6.   now = startTimer()
  7.   tell the stage
  8.     unload(gStartFrame, gEndFrame)
  9.   end tell
  10.   duration = PutTime(now)
  11.   Throughput(duration, total, 1, freebytesAtStart)
  12. end
  13.